home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 11 / Big_Mouth_The_11_1996_-_Side_C.d64 / the main menu_bm (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  2KB  |  58 lines
  1. 1 rem"          "bm staff eyes only!(NULL)
  2. 2 poke 808,234:poke 53280,0:poke 53281,0
  3. 4 fort=1 to 500:next
  4. 6 print"[147][155]   the big mouth magazine - main menu"
  5. 8 fort=1 to 2000:next
  6. 10 print"[147]"
  7. 15 fort=1 to 500:next
  8. 20 printtab(7)"the big mouth - main menu"
  9. 30 print"supportware:"
  10. 31 printtab(5)"a - supportware guide"
  11. 32 printtab(5)"b - blitz 2000 instructions"
  12. 33 printtab(5)"c - blitz 2000"
  13. 34 printtab(5)"d - sceptre uncut instructions"
  14. 35 printtab(5)"e - sceptre uncut"
  15. 36 printtab(5)"f - astromine playable demo"
  16. 40 print"non supportware:"
  17. 41 printtab(5)"g - esp synth vers 1"
  18. 50 print"pick a program to load (a-g) ?"
  19. 55 get a$:if a$="" then 55
  20. 60 a=asc(a$):if a-64<1 or a-64>7 then 55
  21. 65 if a-64=5 then 100
  22. 66 if a-64=7 then 130
  23. 70 forx=49152 to 49170:ready:poke x,y:nextx
  24. 75 sys 49152
  25. 76 data 120,169,013,141,040,003,169,192
  26. 77 data 141,041,003,088,096,238,032,208
  27. 78 data 076,237,246
  28. 80 on a-64 goto 100,100,100,100,100,100,130
  29. 99 :
  30. 100 poke 53280,6:poke 53281,6:printchr$(8)
  31. 101 print"[147][158]please now note!"
  32. 102 print"if you live outside the uk, and want to ";
  33. 103 print"send me a contribution, i can now accept";
  34. 104 print"your countries cash currency, because i ";
  35. 105 print"am able to get it changed to uk pounds!!";
  36. 106 print"thanks! and all the best..."
  37. 107 print"have fun.. from the author!"
  38. 108 print"[159]jon wells"
  39. 109 print"9 de grey road"
  40. 110 print"king's lynn"
  41. 111 print"norfolk"
  42. 112 print"pe30 4ph"
  43. 113 print"[153]england"
  44. 115 print"note from  the big mouth [146] to jon wells:"
  45. 116 print"sorry that this has been altered with"
  46. 117 print"our own menu but yours wouldn't work!!!!"
  47. 119 print"now loading your selection - please wait"
  48. 120 if a-64=1 then load"support-guide+dl",8,1
  49. 121 if a-64=2 then load"disk-blitz instz",8,1
  50. 122 if a-64=3 then load"blitz 2000 - c64",8,1
  51. 123 if a-64=4 then load"disk-uncut instz",8,1
  52. 124 if a-64<>5 then 127
  53. 125 print"load"chr$(34)"sceptre uncut!!!"chr$(34)",8,1[145][145][145]"
  54. 126 load"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]",8,1
  55. 127 load"astromine-64demo",8,1
  56. 130 print"   wait - esp synth vers 1 is loading "
  57. 135 load"esp synth vers 1",8,1
  58.